home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / wwais103 / credits.frm (.txt) next >
Encoding:
Visual Basic Form  |  1995-05-08  |  1.9 KB  |  64 lines
  1. VERSION 2.00
  2. Begin Form Form2 
  3.    BackColor       =   &H00FFFF00&
  4.    Caption         =   "WAIS for Windows"
  5.    ClientHeight    =   4020
  6.    ClientLeft      =   510
  7.    ClientTop       =   1260
  8.    ClientWidth     =   7365
  9.    Height          =   4425
  10.    Left            =   450
  11.    LinkMode        =   1  'Source
  12.    LinkTopic       =   "Form2"
  13.    ScaleHeight     =   4020
  14.    ScaleWidth      =   7365
  15.    Top             =   915
  16.    Width           =   7485
  17.    Begin CommandButton Command1 
  18.       Caption         =   "Begin"
  19.       Height          =   495
  20.       Left            =   2760
  21.       TabIndex        =   0
  22.       Top             =   2880
  23.       Width           =   1815
  24.    End
  25. Sub Command1_Click ()
  26.     form2.Hide
  27.     question_form.Show
  28. End Sub
  29. Sub Form_Load ()
  30. AutoRedraw = -1
  31.     FontSize = 24
  32.     st$ = "WAIS for Windows"
  33.     CurrentY = 3
  34.     HalfWidth = TextWidth(st$) / 2
  35.     CurrentX = ScaleWidth / 2 - HalfWidth
  36.     Print st$
  37.     CurrentY = CurrentY + TextHeight(st$) / 2
  38.     FontSize = 10
  39.     st$ = "Version 1.03 - 3/18/92"
  40.     HalfWidth = TextWidth(st$) / 2
  41.     CurrentX = ScaleWidth / 2 - HalfWidth
  42.     Print st$
  43.     CurrentY = CurrentY + TextHeight(st$) / 2
  44.     st$ = "University of North Carolina at Chapel Hill"
  45.     HalfWidth = TextWidth(st$) / 2
  46.     CurrentX = ScaleWidth / 2 - HalfWidth
  47.     Print st$
  48.     CurrentY = CurrentY + TextHeight(st$) / 2
  49.     st$ = "Computing Systems Development Group"
  50.     HalfWidth = TextWidth(st$) / 2
  51.     CurrentX = ScaleWidth / 2 - HalfWidth
  52.     Print st$
  53.     CurrentY = CurrentY + TextHeight(st$) / 2
  54.     st$ = "For More Information, Contact:"
  55.     HalfWidth = TextWidth(st$) / 2
  56.     CurrentX = ScaleWidth / 2 - HalfWidth
  57.     Print st$
  58.     CurrentY = CurrentY + TextHeight(st$) / 2
  59.     st$ = "Jim_Fullton@unc.edu"
  60.     HalfWidth = TextWidth(st$) / 2
  61.     CurrentX = ScaleWidth / 2 - HalfWidth
  62.     Print st$
  63. End Sub
  64.